home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 36 / 036.d81 / variable dumper (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  2KB  |  68 lines
  1. 0 gosub60100:clr
  2. 100 print"[147][144]     variable dump by shachar ebel"
  3. 110 sa=49152:rem relocatable start addr
  4. 120 forj=1to193:readk:cs=cs+k:next:ifcs<>24349thenprint"data error":stop
  5. 130 restore:forj=satosa+188:readk:pokej,k:next
  6. 140 ad=sa+47:gosub160:ad=sa+170:forj=0to2:gosub160:next
  7. 150 goto300
  8. 160 readk:pokesa+k,ad-256*int(ad/256):pokesa+k+1,int(ad/256):return
  9. 201 data165,045,164,046,133,251,132,252
  10. 202 data160,001,185,251,000,217,047,000
  11. 203 data208,004,136,016,245,096,032,047
  12. 204 data192,024,165,251,105,007,133,251
  13. 205 data144,002,230,252,169,013,032,022
  14. 206 data231,165,145,016,252,048,217,160
  15. 207 data000,177,251,170,041,127,032,022
  16. 208 data231,200,177,251,072,041,127,168
  17. 209 data032,022,231,104,016,063,138,048
  18. 210 data041,169,036,032,170,192,169,034
  19. 211 data032,022,231,177,251,153,251,000
  20. 212 data200,192,005,208,246,165,253,240
  21. 213 data012,160,000,177,254,032,022,231
  22. 214 data200,196,253,208,246,169,034,076
  23. 215 data022,231,169,037,032,170,192,177
  24. 216 data251,170,200,177,251,168,138,032
  25. 217 data145,179,024,144,031,169,032,032
  26. 218 data170,192,177,251,153,095,000,200
  27. 219 data192,007,208,246,165,098,170,009
  28. 220 data128,133,098,160,000,138,016,002
  29. 221 data160,255,132,102,032,221,189,076
  30. 222 data030,171,032,022,231,152,208,005
  31. 223 data169,032,032,022,231,169,061,032
  32. 224 data022,231,160,002,096,023,076,117
  33. 225 data136
  34. 300 print"[147][144]     variable dump by shachar ebel"
  35. 305 print"[149]    to get a listing of variables and"
  36. 310 print"their values, enter sys49152."
  37. 320 print"press [space] to see variables, [q] to"
  38. 330 print"quit to basic, or [return] to return to"
  39. 340 print"loadstar.":poke198,.
  40. 350 a=peek(203):ifa<>1anda<>62anda<>60then350
  41. 355 poke198,.
  42. 360 ifa=1then60000
  43. 370 ifa=62thenend
  44. 380 print"":sys49152
  45. 390 print"         press space to continue.":poke198,.
  46. 400 geta$:ifa$<>" "then400
  47. 410 goto300
  48. 60000 open15,8,15,"r0:hello connect=hello connect":input#15,er:close15
  49. 60010 ifer<>63thenend
  50. 60020 load"hello connect",8
  51. 60100 poke53280,7:poke53281,1
  52. 60110 printchr$(142)"[147][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]";
  53. 60120 fora=1to23:print"[221]"spc(38)"[221]";:next
  54. 60130 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189][157][148][192]"
  55. 60140 fora=217to242:pokea,peek(a)or128:next
  56. 60150 print"[149]          loadstar presents:"
  57. 60160 print"                              "
  58. 60170 print"            variable dumper   [155] "
  59. 60180 print"                              [155] "
  60. 60190 print"            by shachar ebel   [155] "
  61. 60200 print"                              [155] "
  62. 60210 print"           (c)opyright  1987  [155] "
  63. 60220 print"                              [155] "
  64. 60230 print"                               "
  65. 60240 print"        press space to continue.":poke198,.
  66. 60250 geta$:ifa$<>" "then60250
  67. 60260 return
  68.